home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / ActionItems 2.4.cpt / ActionItems 2.4 / background_26553.txt < prev    next >
Text File  |  1989-02-26  |  4KB  |  161 lines
  1. -- background: 26553 from stack: in.4
  2. -- bmap block id: 26783
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Print Routines
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=205 top=310 right=332 bottom=305
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: I'm Finished
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   pop card
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: A001
  30. -- rect: left=202 top=216 right=278 bottom=308
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 31705 / 31705
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Incomplete Action
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   ask "Save report as file name:" with "IncompleteActionItem.Txt"
  42.   if it is empty then
  43.     exit mouseUp
  44.   else
  45.     put it into reportString
  46.     set lockScreen to true
  47.     go to card 1 of background "Action Items"
  48.     open file reportString
  49.     set cursor to 4
  50.     write "INCOMPLETE ACTION ITEMS" & return & return to file reportString
  51.     repeat number of cards - 11
  52.       If field 1 is not empty and field 3 is "F" then
  53.         write "START DATE:" & tab & field 2 & return & "DUE DATE:" & tab & field 6 & return & return & tab & field 1 & return & return to file reportString
  54.         doMenu Next
  55.       else
  56.         doMenu Next
  57.       end if
  58.     end repeat
  59.     close file reportString
  60.   end if
  61.   go to first card of background "Print Routines"
  62.   set lockScreen to false
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part 3 (button)
  68. -- low flags: 00
  69. -- high flags: A001
  70. -- rect: left=18 top=216 right=278 bottom=115
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 28644 / 28644
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: Completed Action
  79. ----- HyperTalk script -----
  80. on mouseUp
  81.   ask "Save report as file name:" with "CompletedActionItem.Txt"
  82.   if it is empty then
  83.     exit mouseUp
  84.   else
  85.     put it into reportString
  86.     set lockScreen to true
  87.     go to card 1 of background "Action Items"
  88.     open file reportString
  89.     set cursor to 4
  90.     write "COMPLETED ACTION ITEMS" & return & return to file reportString
  91.     repeat for number of cards - 11
  92.       If field 1 is not empty and field 3 is "T" then
  93.         write "START DATE:" & tab & field 2 & return & "DUE DATE:" & tab & field 6 & return & return & tab & field 1 & return & return to file reportString
  94.         doMenu Next
  95.       else
  96.         doMenu Next
  97.       end if
  98.     end repeat
  99.     close file reportString
  100.   end if
  101.   go to first card of background "Print Routines"
  102.   set lockScreen to false
  103.  
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 4 (button)
  109. -- low flags: 00
  110. -- high flags: A001
  111. -- rect: left=383 top=216 right=278 bottom=489
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 27032 / 27032
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: All Action
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.   ask "Save report as file name:" with "AllActionItem.Txt"
  123.   if it is empty then
  124.     exit mouseUp
  125.   else
  126.     put it into reportString
  127.     set lockScreen to true
  128.     go to card 1 of background "Action Items"
  129.     open file reportString
  130.     set cursor to 4
  131.     write "ALL ACTION ITEMS" & return & return to file reportString
  132.     repeat number of cards - 11
  133.       If field 1 is not empty then
  134.         write "START DATE:" & tab & field 2 & return & "DUE DATE:" & tab & field 6 & return & return & tab & field 1 & return & return to file reportString
  135.         doMenu Next
  136.       else
  137.         doMenu Next
  138.       end if
  139.     end repeat
  140.     close file reportString
  141.   end if
  142.   go to first card of background "Print Routines"
  143.   set lockScreen to false
  144.  
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part 5 (field)
  150. -- low flags: 01
  151. -- high flags: 2004
  152. -- rect: left=17 top=24 right=188 bottom=491
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 0
  156. -- font id: 251
  157. -- text size: 10
  158. -- style flags: 0
  159. -- line height: 13
  160. -- part name: Print Routines Text
  161.